﻿Public Class frmExchange

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        UI.FormatDataGrid(dgvexchange)
        ' Add any initialization after the InitializeComponent() call.
        loadExchange()
    End Sub

    Private Sub loadExchange()
        Dim dt As New DataTable
        Dim sql = <sql>
                      select exchange_rate_detail_id,e.exchange_rate_id,currency_name,rate_pervalue,ex.exchange_rate_name 
                      from tbl_exchange_rate_detail e 
                      inner join tbl_exchange_rate ex on ex.exchange_rate_id=e.exchange_rate_id 
                      where e.active=1
                  </sql>
        dt = Cmd.ExecuteDataTable(sql)
        dgvexchange.DataSource = dt
    End Sub
End Class